#=============================================================================================
# @TITLE					New Database - 6th - 7th step.
#
# @NUMBER					WDBM_FKT_01025
#
# @DESCRIPTION		A new database will be created by using the database wizard.
#
# @EXP_RESULT			The service is running.
#
# @REQUIREMENTS		Test: WDBM_FKT_01000; WDBM_FKT_00100; WDBM_FKT_01020; WDBM_FKT_01021;
# @								WDBM_FKT_01022; WDBM_FKT_01023; WDBM_FKT_01024;
#=============================================================================================

public function trim (in str) {
	if (substr(str, 1, 1) == " ") {

		str = trim(substr(str, 2));
	}
	if (substr(str, length(str)) == " ") {
		str = trim(substr(str, 1, length(str)-1));
	}
	return (str);
} 

static table_data_head_ok = 1;
static table_log_head_ok = 1;
static table_system_head_ok = 1;

static table_general_head [] = {"Name","Size","Device Type","Location"}; 
#=============================================================================================
# @STEP 1			Checking 'Previous' - button.
#=============================================================================================
set_window (work_window, 1);
web_link_click("Previous");
wait(5);
set_window (work_window, 1);
if (new_interface == "1") {
	web_obj_get_text("Owner","#1","#1",cell_value,"","",1);
} else {
	tbl_get_cell_data("General Parameters","#1","#1",cell_value);
}
if (cell_value == "General Parameters") {

	tl_step("Previous window","0","was reached");
	
	set_window (work_window, 1);
	if (new_interface == "1") {
		#web_obj_get_text("Configuration - Log Mode","#1","#1",cell_value_1_2,"","",1);
		web_obj_get_text("Database Users","#1","#1",cell_value_1_2,"","",1);
	} else {
		tbl_get_cell_data("1x1","#1","#4",cell_value_1_1);
		tbl_get_cell_data("1x1","#1","#2",cell_value_1_2);
	}
	if (trim(cell_value_1_1) == "Parameter and devspace changes will be lost." ||
		trim(cell_value_1_2) == "The database instance was created successfully. If requiered, adjust the parameters now.") {
		
		tl_step("Window infotext","0","correct");
	} else {
		tl_step("Window infotext","1","incorrect");
	}
}
set_window (work_window, 1);
web_link_click("Next");
#=============================================================================================
# @STEP 2			Entering data devspaces.
#=============================================================================================
wait(5);
set_window (work_window, 2);

for (i=1;i<5;i++) {
	
	set_window (work_window, 2);
	if (new_interface == "1") {
		web_obj_get_text("1x1_3","#2","#"&i,cell_value_0,"","",1);
	} else {
		tbl_get_cell_data("1x1_4","#2","#"&i,cell_value_0);
	}
	if (cell_value_0 != table_general_head [i-1]) {
		table_data_head_ok = 0;
		break;
	}
}

if (table_data_head_ok == 0) {
	tl_step("Headline of data-devspace-table","1","is incorrect");
} else {
	tl_step("Headline of data-devspace-table","0","is correct");
}

set_window (work_window, 7);
web_link_click("DATA0001");
set_window (work_window, 7);
if (new_interface == "1") {
	web_obj_get_text("Information - CACHES - DB73","#1","#1",cell_value_2,"","",1);
	edit_get_text("NameRO",cell_value_3);
} else {
	tbl_get_cell_data("Information - CACHES - DB73","#1","#1",cell_value_2);
	tbl_get_cell_data("1x1","#2","#3",cell_value_3);
}
if ((cell_value_2 == "Volume - " & test_database & " - DATA0001" && cell_value_3 == "DATA0001") || 
	(cell_value_2 == "Configuration - Volumes - DATA0001" && cell_value_3 == "DATA0001")) {
	
	tl_step("Window title and devspace name","0","are correct");
} else {
	tl_step("Window title and devspace name","1","are incorrect");
}

if (obj_exists("Size",0) == E_OK &&
	obj_exists("Location",0) == E_OK &&
	obj_exists("Type",0) == E_OK &&
	obj_exists("Type_1",0) == E_OK &&
	obj_exists("Type_2",0) == E_OK) {
	
	tl_step("All object of window","0","correctly displayed");
} else {
	tl_step("At least one object of window","1","is incorrectly displayed");
}

edit_set("Size","0");
web_link_click("OK");
#=============================================================================================
# @STEP 2.1		Checking whether error occures.
#=============================================================================================
set_window (work_window, 7);
if (obj_exists("Information - CACHES - DB73", 0) == E_OK) {
	web_obj_get_text("Information - CACHES - DB73","#1","#1",error_text,"","",1);
}
if (match(error_text, "Error") != 0 ||
	obj_exists("msgerro",0) == 0) {

	set_window (work_window, 7);
	if (new_interface == "1") {
		web_obj_get_text("1x1_1","#1","#2",cell_value_0_3,"","",1);
	} else {
		tbl_get_cell_data("1x1","#1","#4",cell_value_0_3);
	}
	#if ((trim(cell_value_0_3) == "Devspace definition not complete." && version == "7.3.00") ||
	#	(trim(cell_value_0_3) == "Volume definition not complete." && (version == "7.4.03" || version == "7.5.00" || version == "7.6.00"))) {
	if (trim(cell_value_0_3) == "Devspace definition not complete."){
		tl_step("Error occured","0","correct");
	} else {
		tl_step("Error occured, but infotext","1","is incorrect, or wrong error message.");
	}
} else {
	tl_step("Error did not occure","1","incorrect");
}
set_window (work_window, 7);
edit_set("Size","5000");
set_window (work_window, 7);
web_link_click("OK");

wait(5);
#=============================================================================================
# @STEP 3			Entering log devspaces.
#=============================================================================================
set_window (work_window, 2);
web_link_click("Log");

wait(2);

for (i=1;i<5;i++) {
	
	set_window (work_window, 2);
	if (new_interface == "1") {
		web_obj_get_text("1x1_3","#2","#"&i,cell_value_0_1,"","",1);
	} else {
		tbl_get_cell_data("1x1_4","#2","#"&i,cell_value_0_1);
	}
	
	if (cell_value_0_1 != table_general_head [i-1]) {
		table_log_head_ok = 0;
		break;
	}
}

if (table_log_head_ok == 0) {
	tl_step("Headline of data-devspace-table","1","is incorrect");
} else {
	tl_step("Headline of data-devspace-table","0","is correct");
}

set_window (work_window, 2);
web_link_click("LOG001");
set_window (work_window, 7);
if (new_interface == "1") {
	web_obj_get_text ("Information - CACHES - DB73", "#1", "#1", cell_value_4, "", "", 1);
	edit_get_text ("NameRO", cell_value_5);
} else {
	tbl_get_cell_data("Information - CACHES - DB73","#1","#1",cell_value_4);
	tbl_get_cell_data("1x1","#2","#3",cell_value_5);
}
if ((trim(cell_value_4) == "Volume - " & test_database & " - LOG001" && trim(cell_value_5) == "LOG001") || 
	(trim(cell_value_4) == "Configuration - Volumes - LOG001" && trim(cell_value_5) == "LOG001")) {
	
	tl_step("Window title and devspace name","0","are correct");
} else {
	tl_step("Window title and devspace name","1","are incorrect");
}

if (obj_exists("Size",0) == 0 &&
	obj_exists("Location",0) == 0 &&
	obj_exists("Type",0) == 0 &&
	obj_exists("Type_1",0) == 0 &&
	obj_exists("Type_2",0) == 0) {
	
	tl_step("All object of window","0","correctly displayed");
} else {
	tl_step("At least one object of window","1","is incorrectly displayed");
}

set_window (work_window, 7);
edit_set("Size","0");
web_link_click("OK");
#=============================================================================================
# @STEP 2.1		Checking whether error occures.
#=============================================================================================
set_window (work_window, 7);
if (obj_exists("Information - CACHES - DB73", 0) == E_OK) {
	web_obj_get_text("Information - CACHES - DB73","#1","#1",error_text,"","",1);
}
if (match(error_text, "Error") != 0 ||
	obj_exists("msgerro",0) == 0) {

	set_window (work_window, 7);
	if (new_interface == "1") {
		web_obj_get_text("1x1_1","#1","#2",cell_value_0_4,"","",1);
	} else {
		tbl_get_cell_data("1x1","#1","#4",cell_value_0_4);
	}
	#if ((trim(cell_value_0_4) == "Devspace definition not complete." && version == "7.3.00") ||
	#	(trim(cell_value_0_4) == "Volume definition not complete." && (version == "7.4.03" || version == "7.5.00" || version == "7.6.00"))) {
	if (trim(cell_value_0_4) == "Devspace definition not complete."){
	
		tl_step("Error occured","0","correct");
	} else {
		tl_step("Error occured, but infotext","1","is incorrect");
	}
} else {
	tl_step("Error did not occure","1","incorrect");
}
set_window (work_window, 7);
wait(5);
edit_set("Size","2500");
web_link_click("OK");
wait(2);
#=============================================================================================
# @STEP 4			Checking system window.
#=============================================================================================
if (version_inst == "7.3.0") {

    set_window (work_window, 2);
    wait(5);
    web_link_click("System");
    wait(5);
    
    for (i=1;i<5;i++) {
    	tbl_get_cell_data("1x1_4","#2","#"&i,cell_value_0_2);
    	
    	if (cell_value_0_2 != table_general_head [i-1]) {
    		table_system_head_ok = 0;
    		break;
    	}
    }
    
    if (table_system_head_ok == 0) {
    	tl_step("Headline of data-devspace-table","1","is incorrect");
    } else {
    	tl_step("Headline of data-devspace-table","0","is correct");
    }
    
    set_window (work_window, 2);
    web_link_click("SYS001");
    set_window (work_window, 7);
    
    tbl_get_cell_data("Information - CACHES - DB73","#1","#1",cell_value_6);
    tbl_get_cell_data("1x1","#2","#3",cell_value_7);
    
    if (cell_value_6 == "Volume - " & test_database & " - SYS001" &&
		cell_value_7 == "SYS001") {
		
    	tl_step("Window title and devspace name","0","are correct");
    } else {
    	tl_step("Window title and devspace name","1","are incorrect");
    }

    if (obj_exists("Location",0) == 0 &&
		obj_exists("Type",0) == 0 &&
		obj_exists("Type_1",0) == 0 &&
		obj_exists("Type_2",0) == 0) {
		
    	tl_step("All object of window","0","correctly displayed");
    } else {
    	tl_step("At least one object of window","1","is incorrectly displayed");
    }
    
    web_link_click("OK");
    
    wait(2);
}
#=============================================================================================
# @STEP 5			Changing to next step and checking window content.
#=============================================================================================
set_window (work_window, 4);
web_link_click("Next");
set_window (work_window, 4);
if (new_interface == "1") {
	web_obj_get_text ("Information - CACHES - DB73", "#1", "#1", cell_value_8, "", "", 1);
	#web_obj_get_text ("Configuration - Log Mode", "#1", "#1", cell_value_9, "", "", 1);
	web_obj_get_text ("Database Users", "#1", "#1", cell_value_9, "", "", 1);
} else {
	tbl_get_cell_data("Installation Mode","#1","#1",cell_value_8);
	tbl_get_cell_data("1x1","#1","#2",cell_value_9);
}
if (trim(cell_value_8) == "Installation Mode" &&
	trim(cell_value_9) == "Choose the mode of installation.") {
	
	tl_step("Title of window and infotext of window","0","are correct");
} else {
	tl_step("Title of window and infotext of window","1","are incorrect");
}

if (obj_exists("InstallMode",0) == 0 &&
	obj_exists("InstallMode_1",0) == 0) {
	
	tl_step("Radiobuttons for 'Install' and 'Restore' instance","0","are correctly displayed");
} else {
	tl_step("Radiobuttons for 'Install' and 'Restore' instance","1","are incorrectly displayed");
}
#=============================================================================================
# @STEP 6			Checking the 'Previous' button.
#=============================================================================================
set_window (work_window, 1);
web_link_click("Previous");
wait(5);
set_window(work_window, 1);
if (new_interface == "1") {

	web_obj_get_text ("Owner", "#1", "#1", cell_value_10, "", "", 1);
	#web_obj_get_text ("Configuration - Log Mode", "#1", "#1", cell_value_11, "", "", 1);
	web_obj_get_text ("Database Users", "#1", "#1", cell_value_11, "", "", 1);

	#if (cell_value_10 == "Data Volumes" &&
	#	cell_value_11 == "Specify the volumes.") {
	if (cell_value_10 == "Data Devspaces Volumes" &&
		cell_value_11 == "Specify the volumes.") {

		
		tl_step("Next step was reached","0","Window content correct");
	} else {
		tl_step("Next step was not reached","1","Window content incorrect");
	}
} else {

	tbl_get_cell_data("Data Devspaces","#1","#1",cell_value_10);
	tbl_get_cell_data("1x1","#1","#2",cell_value_11);
	
	if (cell_value_10 == "Data Volumes" &&
		cell_value_11 == "Specify the devspaces.") {
	
		tl_step("Next step was reached","0","Window content correct");
	} else {
		tl_step("Next step was not reached","1","Window content incorrect");
	}
}

set_window (work_window, 1);
web_link_click("Next");
#=============================================================================================
# @STEP 7			Changing to next step.
#=============================================================================================
set_window (work_window, 1);
wait(5);
web_link_click("Next");
set_window (work_window, 1);
if (new_interface == "1") {
	web_obj_get_text ("Information - CACHES - DB73", "#1", "#1", cell_value_12, "", "", 1);
	#web_obj_get_text ("Configuration - Log Mode","#1","#1", cell_value_13, "", "", 1);
	web_obj_get_text ("Database Users","#1","#1", cell_value_13, "", "", 1);
} else {
	tbl_get_cell_data ("Installation","#1","#1", cell_value_12);
	tbl_get_cell_data ("1x1","#1","#2", cell_value_13);
}
if (cell_value_12 == "Installation" &&
	cell_value_13 == "Press 'Install' to start the installation.") {
	
	tl_step("Next step was reached","0","correct");
} else {
	tl_step("Next step was not reached","1","incorrect");
}
#=============================================================================================
# @STEP 8			Checking the 'Previous' button.
#=============================================================================================
set_window (work_window, 1);
web_link_click("Previous");
wait(5);
set_window (work_window, 1);
if (new_interface == "1") {
	web_obj_get_text ("Information - CACHES - DB73", "#1", "#1", cell_value_14, "", "", 1);
	#web_obj_get_text ("Configuration - Log Mode","#1","#1", cell_value_15, "", "", 1);
	web_obj_get_text ("Database Users","#1","#1", cell_value_15, "", "", 1);
} else {
	tbl_get_cell_data("Installation Mode","#1","#1",cell_value_14);
	tbl_get_cell_data("1x1","#1","#2",cell_value_15);
}

if (cell_value_14 == "Installation Mode" &&
	cell_value_15 == "Choose the mode of installation.") {
	
	tl_step("Title of window and infotext of window","0","are correct");
} else {
	tl_step("Title of window and infotext of window","1","are incorrect");
}

if (obj_exists("InstallMode",0) == 0 &&
	obj_exists("InstallMode_1",0) == 0) {
	
	tl_step("Radiobuttons for 'Install' and 'Restore' instance","0","are correctly displayed");
} else {
	tl_step("Radiobuttons for 'Install' and 'Restore' instance","1","are incorrectly displayed");
}
set_window (work_window, 1);
web_link_click("Next");
